home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 0022-3.564 / dmg-3451 / data / tiles.dat < prev    next >
Text File  |  1987-04-21  |  2KB  |  114 lines
  1. Scrolling tiles.
  2. Wheee the fibble.
  3.  
  4. Ok, you all know how to do this, but it's another source on the 
  5. disk anyway...
  6.  
  7. 10 key off : hide : flash off : click off : mode 0 : curs off 
  8.    : auto back off : update off 
  9.  
  10.      Screen set up.
  11.  
  12. 20 H=hunt(start(1) to start(1)+length(1),"PALT")+4
  13. 30 copy H,H+320 to logic+32000 : get palette (logic)
  14.  
  15.      Get the palette of the sprite-bank.
  16.  
  17. 40 NFRM=4
  18.  
  19.      Number of frames of animation (16 max as that's the size of 
  20.      the sprites).
  21.  
  22. 50 reserve as work 10,NFRM*32000
  23.  
  24.      Reserve enough memory for that many.
  25.  
  26. 60 for T=0 to NFRM-1
  27.  
  28.      For each frame.
  29.  
  30. 70 for X=-16+M to 320+M step 16
  31.  
  32.      Do a sprite on a 16 pixel boundry + the value of M (so it's 
  33.      moved along by a bit each frame).
  34.  
  35. 80 sprite 1,X,0,1 : update 
  36.  
  37.      Dump the sprite.
  38.  
  39. 85 X2=X/16*16
  40.  
  41.      Nearest 16 boundry.
  42.  
  43. 90 screen copy physic,X2,0,X2+32,16 to back,X2,0
  44.  
  45.      Copy the sprite to BACK.
  46.  
  47. 100 next X
  48.  
  49.      Alll the way accross the screen.
  50.  
  51. 110 for Y=16 to 192 step 16
  52. 120 screen copy physic,0,0,320,15 to physic,0,Y
  53. 130 next Y
  54.  
  55.      Copy the line of sprites down the rest of the screen.
  56.  
  57. 140 screen copy physic to start(10)+T*32000
  58.  
  59.      Copy the whole screen to the memory bank.
  60.  
  61. 150 M=M+(16/NFRM)
  62.  
  63.      Move the marker along so we get horizontal motion.
  64.  
  65. 160 next T
  66.  
  67.      And do it for each frame.
  68.  
  69. 170 K=0
  70.  
  71.      A little variable for the colour.
  72.  
  73. 180 repeat 
  74.  
  75.      Set up the loop.
  76.  
  77. 190 for T=0 to NFRM-1
  78.  
  79.      Do each frame.
  80.  
  81. 200 physic=start(10)+T*32000
  82.  
  83.      Set physic the the address of the next frame of animation.
  84.  
  85. 210 doke $FFFF8248,K : K=K mod $777+4
  86.  
  87.      Colour the W's.
  88.  
  89. 220 doke $FFFF8240,7 : doke $FFFF8240,0
  90.  
  91.      A raster to show how much time the routine takes up. It may 
  92.      not be visable at the top of the screen, but it's there.
  93.  
  94. 230 wait vbl 
  95.  
  96.      Wait for the little electron gun to finish it's job.
  97.  
  98. 240 next T
  99.  
  100.      Do each frame.
  101.  
  102. 250 until inkey$=" "
  103.  
  104.      Until you press space.
  105.  
  106. 260 default : end 
  107.  
  108.      And do a nice clean exit.
  109.  
  110. note from editor: In Dumbarton you may get scrolling tiles, but in 
  111. Abermule you get rolling styles (and they're not a pleasant sight, 
  112. I can assure you!)
  113.  
  114.